home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / emu / hpasm3_10e.lha / HPAsm3.10e / InstallHPAsm < prev    next >
Text File  |  1994-10-01  |  4KB  |  217 lines
  1. ; $VER: Install HPAsm 2.00 (8.09.94)
  2. ; Vallée Christophe © 1994
  3.  
  4. (set DEVICE "hd1:")
  5. (set DEFAULTDEVICE "sys:")
  6. (set DISTDIR "HPAsm")
  7.  
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; parties à installer
  12.  
  13. (set OPTIONS
  14.     (askoptions
  15.         (prompt "Which parts of the distribution do you want to install ?")
  16.         (help @askoptions-help)
  17.         (choices
  18.             "The assembler HPAsm"
  19.             "The documentations" 
  20.             "The examples"
  21.             "The utilities"
  22.             "The HPTopaz font")
  23.         (default 31)
  24.     )
  25. )
  26.  
  27. ; choix répertoire principal
  28.  
  29. (set MAINDIR
  30.     (askdir
  31.         (prompt "Where do you want to install HPAsm (a directory will be "
  32.        "created in the directory you will choose) ?")
  33.         (help @askdir-help)
  34.         (default (if ((= (exists DEVICE (noreq)) 2)) (DEVICE) (DEFAULTDEVICE)))
  35.         (disk)
  36.     )
  37. )
  38. (if (= (exists MAINDIR) 0) (makedir MAINDIR (infos)))
  39. (complete 5)
  40.  
  41. (set DIR (tackon MAINDIR DISTDIR))
  42. (set @default-dest DIR)
  43.  
  44.  
  45. ; crée répertoire
  46.  
  47. (if (= (exists DIR) 2) (
  48.     (message "Directory '" DIR "' already exists. All the files of this "
  49.             "directory will be deleteted.")
  50.     (run ("delete \"%s\" all" DIR))
  51.     )
  52. )
  53. (makedir DIR (infos))
  54. (complete 10)
  55.  
  56.  
  57. ; choix jeu d'icônes
  58.  
  59. (set ICONSET
  60.     (askchoice
  61.         (prompt "Two sets of icons are disponible "
  62.          "according the screen you are using. "
  63.             "Which set of icons do you want ?")
  64.         (help @askchoice-help)
  65.         (choices "Med-res screen (ratio 1x2)"
  66.             "High-res screen (ratio 1x1)")
  67.         (default 0)
  68.     )
  69. )
  70. (set ICONDIR (select ICONSET "icons/medres" "icons/highres"))
  71. (complete 15)
  72.  
  73. (copyfiles
  74.     (source (tackon ICONDIR "source.info"))
  75.     (dest "ENVARC:HPAsm")
  76. )
  77. (tooltype
  78.     (dest ("ENVARC:HPAsm/source"))
  79.     (setdefaulttool (tackon DIR "HPAsm"))
  80.     (noposition))
  81.  
  82. (copyfiles
  83.     (source "ENVARC:HPAsm/source.info")
  84.     (dest "ENV:HPAsm")
  85. )
  86.  
  87. (copyfiles
  88.     (source (tackon ICONDIR "code.info"))
  89.     (dest "ENVARC:HPAsm")
  90. )
  91. (tooltype
  92.     (dest ("ENVARC:HPAsm/code"))
  93.     (setdefaulttool (tackon DIR "utils/Send"))
  94.     (noposition))
  95.  
  96. (copyfiles
  97.     (source "ENVARC:HPAsm/code.info")
  98.     (dest "ENV:HPAsm")
  99. )
  100.  
  101. ; installe l'assembleur
  102.  
  103. (if (in OPTIONS 0) (
  104.     (copyfiles
  105.         (source "HPAsm")
  106.         (dest DIR))
  107.     (copyfiles
  108.         (source (tackon ICONDIR "HPAsm.info"))
  109.         (dest DIR)
  110.         (newname "HPAsm.info"))
  111.     (tooltype
  112.         (dest (tackon DIR "HPAsm"))
  113.         (noposition))
  114.     )
  115. )
  116. (complete 20)
  117.  
  118.  
  119. ; installe les docs
  120.  
  121. (if (in OPTIONS 1) (
  122.     (set DOCDIR (tackon DIR "docs"))
  123.     (makedir DOCDIR (infos))
  124.  
  125.     (copyfiles
  126.         (source "docs")
  127.         (dest DOCDIR)
  128.         (pattern "~(#?.info)"))
  129.  
  130.     (foreach DOCDIR "#?"
  131.         (copyfiles
  132.             (source (tackon ICONDIR "doc.info"))
  133.             (dest DOCDIR)
  134.             (newname (cat @each-name ".info")))
  135.         (tooltype 
  136.             (dest (tackon DOCDIR (fileonly @each-name))
  137.             (setdefaulttool (tackon DIR "HPAsm"))
  138.             (noposition))))
  139.    )
  140. )
  141. (complete 40)
  142.  
  143.  
  144. ; installe les exemples
  145.  
  146. (if (in OPTIONS 2) (
  147.     (set EXEMDIR (tackon DIR "examples"))
  148.     (makedir EXEMDIR (infos))
  149.  
  150.     (copyfiles
  151.         (prompt "\nSelect the examples you want to install:\n")
  152.         (help @copyfiles-help)
  153.         (source "examples")
  154.         (dest EXEMDIR)
  155.         (pattern "~(#?.info)")
  156.         (confirm))
  157.  
  158.     (foreach EXEMDIR "#?.(i|s)"
  159.         (copyfiles
  160.             (source "ENV:HPAsm/source.info")
  161.             (dest EXEMDIR)
  162.             (newname (cat @each-name ".info"))))
  163.  
  164.     (foreach EXEMDIR "#?.cod"
  165.         (copyfiles
  166.             (source "ENV:HPAsm/code.info")
  167.             (dest EXEMDIR)
  168.             (newname (cat @each-name ".info"))))
  169.  
  170.     (foreach EXEMDIR "#?.doc"
  171.         (copyfiles
  172.             (source (tackon ICONDIR "doc.info"))
  173.             (dest EXEMDIR)
  174.             (newname (cat @each-name ".info")))
  175.         (tooltype
  176.             (dest (tackon EXEMDIR (fileonly @each-name))
  177.             (setdefaulttool (tackon DIR "HPAsm"))
  178.             (noposition))))
  179.  
  180.     )
  181. )
  182. (complete 60)
  183.  
  184.  
  185. ; installe les utilitaires
  186.  
  187. (if (in OPTIONS 3) (
  188.     (set UTIDIR (tackon DIR "utils"))
  189.     (makedir UTIDIR (infos))
  190.  
  191.     (copyfiles
  192.         (prompt "\nSelect the utilities you want to install:\n")
  193.         (help @copyfiles-help)
  194.         (source "utils")
  195.         (dest UTIDIR)
  196.         (pattern "~(#?.info)")
  197.         (confirm))
  198.     )
  199. )
  200.  
  201. (complete 80)
  202.  
  203. ; installe la fonte
  204.  
  205. (if (in OPTIONS 4) (
  206.     (copyfiles
  207.         (source "fonts/")
  208.         (dest "FONTS:")
  209.         (all))
  210.     )
  211. )
  212.  
  213. ; fin
  214.  
  215. (complete 100)
  216. (exit)
  217.